home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 February / Macworld (1999-02).dmg / Serious Demos / PageSentry 2.5.1 CD Demo / Sample AppleScripts / DisplayDialog next >
Text File  |  1996-10-12  |  911b  |  28 lines
  1. --- PageSentry Notification Applet
  2. --- DisplayDialog
  3.  
  4. on «event SENTfail» sentryName given «class FURL»:failedURL, «class XTRA»:extra, «class STAT»:Status
  5.     
  6.     -- Create a string containing all the information we recieved
  7.     set myText to "Received Sentry Event" & return & return & ¬
  8.         "SentryName: " & sentryName & return & ¬
  9.         "Failed URL: " & failedURL & return & ¬
  10.         "Extra: " & extra & return & ¬
  11.         "Status: " & Status
  12.     
  13.     -- Get the length of the string we just created
  14.     set myLength to length of myText
  15.     
  16.     -- If the length is greater than 255 charactures, cut of the status line
  17.     if myLength > 255 then
  18.         set myText to "Received Sentry Event" & return & return & ¬
  19.             "SentryName: " & sentryName & return & ¬
  20.             "Failed URL: " & failedURL & return & ¬
  21.             "Extra: " & extra & return & ¬
  22.             "Status: Too much data to fit in window"
  23.     end if
  24.     
  25.     -- Display the dialog
  26.     display dialog myText
  27.     
  28. end «event SENTfail»